﻿
Namespace CapaDeNegocio
    Public Class Paciente
        Inherits CapaDeNegocio.Persona

        Private objTutor As CapaDeNegocio.Tutor
        Private strIniciales As String
        Private strRaza As String

        Public Property tutor() As CapaDeNegocio.Tutor
            Get
                Return objTutor
            End Get
            Set(ByVal value As CapaDeNegocio.Tutor)
                objTutor = objTutor
            End Set
        End Property

        Public Property raza() As String
            Get
                Return strRaza
            End Get
            Set(ByVal value As String)
                strRaza = value
            End Set
        End Property

        Public Property iniciales() As String
            Get
                Return strIniciales
            End Get
            Set(ByVal value As String)
                strIniciales = value
            End Set
        End Property
    End Class




End Namespace

'Private intId As Integer
'Private strNombre As String
'Private _id As Integer
'Private objEnfermedad As Enfermedad

'Public Property Id() As Integer
'    Get
'        Return intId
'    End Get
'    Set(ByVal value As Integer)
'        intId = value
'    End Set
'End Property

'Public Property Nombre() As String
'    Get
'        Return strNombre
'    End Get
'    Set(ByVal value As String)
'        strNombre = value
'    End Set
'End Property

'Public Property Enfermedad() As Enfermedad
'    Get
'        Return objEnfermedad
'    End Get
'    Set(ByVal value As Enfermedad)
'        objEnfermedad = value
'    End Set
'End Property
